home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Conversion / Convert_PICT / Source / UncommentedPSCode / Bitmaps < prev    next >
Text File  |  1994-05-24  |  5KB  |  230 lines
  1. %BEGIN Bitmaps
  2. /lengthByte 1 string def
  3. /runByte 1 string def
  4.  
  5. /unpackbytes 
  6. { 
  7.     /thelength 
  8.         currentfile lengthByte readhexstring pop 
  9.         0 get 
  10.     def 
  11.     thelength 128 lt 
  12.     { 
  13.         /dataString thelength 1 add  string def 
  14.         currentfile dataString readhexstring pop 
  15.     }
  16.     { 
  17.         /runlength 257 thelength sub def 
  18.         /runString runlength  string def
  19.         currentfile runByte readhexstring pop pop 
  20.  
  21.         0 1 runlength 1 sub 
  22.             { runString exch runByte putinterval } 
  23.         for 
  24.         runString 
  25.     } 
  26.     ifelse 
  27. }
  28. def
  29. /bitmap
  30. {
  31.     gsave
  32.         {
  33.             initclip
  34.             regionBounds
  35.             clip
  36.             /numShapes exch def
  37.             numShapes  0 gt
  38.             {
  39.                 numShapes
  40.                 regionPath
  41.                 clip
  42.             }
  43.             if
  44.         }
  45.         if
  46.         /isPacked exch def
  47.         /sourceHeight exch def
  48.         /sourceWidth exch def
  49.         /destHeight exch def
  50.         /destWidth exch def
  51.         /boty exch def
  52.         /botx exch def
  53.         /mode exch def
  54.         /bitDepth exch def        % unused
  55.         /colordata exch def    %  "
  56.         /numcolors exch def    %  "
  57.         /scanString  sourceWidth 8 div ceiling cvi  string def
  58.         botx boty destHeight add translate
  59.         destWidth destHeight scale
  60.         0 setgray
  61.         PSlevel 1 eq
  62.         {
  63.             mode /srcOr eq
  64.             mode /notSrcOr eq
  65.             or 
  66.             {
  67.                 sourceWidth sourceHeight     mode /notSrcOr eq
  68.                 [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  69.                 isPacked true eq
  70.                     { {unpackbytes} }
  71.                     { {currentfile scanString readhexstring pop} } 
  72.                 ifelse
  73.                 imagemask
  74.             }
  75.             {
  76.                 sourceWidth sourceHeight 1
  77.                 [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  78.                 isPacked true eq
  79.                     { {unpackbytes} }
  80.                     { {currentfile scanString readhexstring pop} } 
  81.                 ifelse
  82.                 image
  83.             }
  84.             ifelse
  85.             isPacked false eq
  86.                 { 2 { currentfile read pop pop } repeat  }
  87.                 { 4 { currentfile read pop pop } repeat  }
  88.             ifelse
  89.         }
  90.         {
  91.             /DeviceGray  setcolorspace
  92.             /imageParams 7 dict def
  93.             imageParams begin
  94.                 /ImageType            1    def
  95.                 /Width                 sourceWidth  def
  96.                 /Height                sourceHeight  def
  97.                 /BitsPerComponent    1    def
  98.                 /Decode            mode /notSrcOr eq
  99.                                     { [ 1 0 ] }  { [ 0 1 ] } ifelse def
  100.                 /ImageMatrix    [sourceWidth 0 0  sourceHeight
  101.                                     0 sourceHeight]  def
  102.                 /DataSource isPacked true eq
  103.                             { currentfile  /ASCIIHexDecode filter
  104.                                 /RunLengthDecode filter}
  105.                             { currentfile  /ASCIIHexDecode filter}
  106.                             ifelse
  107.                         def
  108.             end
  109.             mode /srcOr eq
  110.             mode /notSrcOr eq
  111.             or 
  112.                 { imageParams imagemask }
  113.                 { imageParams image }
  114.             ifelse
  115.         }
  116.         ifelse
  117.     grestore
  118. }
  119. def
  120. /colorbitmap
  121. { 
  122.     gsave
  123.         {
  124.             initclip
  125.             regionBounds
  126.             clip
  127.             /numShapes exch def
  128.             numShapes  0 gt
  129.             {
  130.                 numShapes
  131.                 regionPath
  132.                 clip
  133.             }
  134.             if
  135.         }
  136.         if
  137.         /isPacked exch def
  138.         /sourceHeight exch def
  139.         /sourceWidth exch def
  140.         /destHeight exch def
  141.         /destWidth exch def
  142.         /boty exch def
  143.         /botx exch def
  144.         /mode exch def
  145.         /sampleDepth  exch def
  146.         /colordata exch def
  147.         /numcolors exch def
  148.         botx boty destHeight add translate
  149.         destWidth destHeight scale
  150.         PSlevel 1 eq
  151.         {
  152.             /scanString  sourceWidth sampleDepth mul 8 div
  153.                     ceiling cvi  string def
  154.             sourceWidth sourceHeight sampleDepth
  155.             [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  156.             isPacked true eq
  157.                 { {unpackbytes} }
  158.                 { {currentfile scanString readhexstring pop} } 
  159.             ifelse
  160.             image
  161.             isPacked false eq
  162.                 { 2 { currentfile read pop pop } repeat  }
  163.                 { 4 { currentfile read pop pop } repeat  }
  164.             ifelse
  165.         }
  166.         {
  167.             [ /Indexed  /DeviceRGB numcolors colordata] setcolorspace
  168.             /imageParams 7 dict def
  169.             imageParams begin
  170.                 /ImageType        1 def
  171.                 /Width             sourceWidth def
  172.                 /Height            sourceHeight def
  173.                 /BitsPerComponent    sampleDepth def
  174.                 /Decode            [ 0 2 sampleDepth exp 1 sub ] def
  175.                 /ImageMatrix    [sourceWidth 0 0  sourceHeight 0
  176.                                     sourceHeight]  def
  177.                 /DataSource     isPacked true eq
  178.                             { currentfile  /ASCIIHexDecode filter
  179.                                     /RunLengthDecode filter}
  180.                             { currentfile  /ASCIIHexDecode filter}
  181.                             ifelse
  182.                         def
  183.             end
  184.             imageParams image
  185.         }
  186.         ifelse
  187.     grestore
  188. }
  189. def
  190. /24bitBitmap
  191. { 
  192.     gsave
  193.         {
  194.             initclip
  195.             regionBounds
  196.             clip
  197.             /numShapes exch def
  198.             numShapes  0 gt
  199.             {
  200.                 numShapes
  201.                 regionPath
  202.                 clip
  203.             }
  204.             if
  205.         }
  206.         if
  207.         /isPacked exch def
  208.         /sourceHeight exch def
  209.         /sourceWidth exch def
  210.         /destHeight exch def
  211.         /destWidth exch def
  212.         /boty exch def
  213.         /botx exch def
  214.         /mode exch def
  215.         botx boty destHeight add translate
  216.         destWidth destHeight scale
  217.         /scanString  sourceWidth  3 mul  string def
  218.         sourceWidth sourceHeight 8
  219.         [sourceWidth 0 0  sourceHeight 0 sourceHeight] 
  220.         isPacked true eq
  221.             { {unpackbytes} }
  222.             { {currentfile scanString readhexstring pop} } 
  223.         ifelse
  224.         false 3
  225.         colorimage
  226.     grestore
  227. }
  228. def
  229. %END Bitmaps
  230.